Graphics Plus/Graphics Plus.iso/libs/tsipp/tsipp.lha/tsipp3.0a/tests/shader.test

Text File | 1992-11-02 | 9.5 KB | 352 lines

#==============================================================================
#                                shader.test
#------------------------------------------------------------------------------
# Test of the Tcl SIPP shader commands.
#------------------------------------------------------------------------------
# Copyright 1992 Mark Diekhans
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies.  Mark Diekhans makes
# no representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.
#------------------------------------------------------------------------------
# $Id: shader.test,v 2.0 1992/11/02 03:56:03 markd Rel $
#==============================================================================

if {[info procs test] == ""} {source testprocs.tcl}

#
# Test SippShaderBasic command.
#

test {shader-1.1} {
    SippShaderBasic
} 1 {wrong # args: SippShaderBasic ambient specular c3 color [opacity]}

test {shader-1.2} {
    SippShaderBasic .5 .8 .2 {1.2 .5 .8}
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-1.3} {
    SippShaderBasic .5 1.3 .2 {.2 .5 .8}
} 1 {Expected a number in the range 0..1, got: 1.3}

test {shader-1.4} {
    SippShaderBasic .5 .3 .2 {.2 .5 .8} {1.0 .9}
} 1 {opacity must be a single number or a list of three elements}

test {shader-1.5} {
    SippShaderBasic .5 .3 .2 {.2 .5 .8} {1.0 .9 2.1}
} 1 {Expected a number in the range 0..1, got: 2.1}

test {shader-1.6} {
    SippShaderBasic .5 .3 .2 {.2 .5 .8} {1.0 .9 x}
} 1 {expected floating-point number but got "x"}

test {shader-1.7} {
    catch {unset shader1}
    set shader1 [SippShaderBasic .5 .8 .2 {.2 .5 .8}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-1.8} {
    catch {unset shader1}
    set shader1 [SippShaderBasic .5 .8 .2 {.2 .5 .8} {.1 .9 0}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-1.9} {
    catch {unset shader1}
    set shader1 [SippShaderBasic .5 .8 .2 {.2 .5 .8} .1]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderPhong command.
#

test {shader-2.1} {
    SippShaderPhong
} 1 {wrong # args: SippShaderPhong ambient diffuse specular spec_exp color [opacity]}

test {shader-2.2} {
    SippShaderPhong .5 .1 .2 40 {1.2 .5 .8}
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-2.3} {
    SippShaderPhong .5 1.3 .2 .2 40 {.2 .5 .8}
} 1 {Expected a number in the range 0..1, got: 1.3}

test {shader-2.4} {
    SippShaderPhong .5 .3 .2 40.1 {.2 .5 .8}
} 1 {expected integer but got "40.1"}

#
# Test SippShaderStrauss command.
#

test {shader-3.1} {
    SippShaderStrauss {1.2 .5 .8}
} 1 {wrong # args: SippShaderStrauss ambient smoothness metalness color [opacity]}

test {shader-3.2} {
    SippShaderStrauss .5 .8 .2 {1.2 .5 .8}
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-3.3} {
    SippShaderStrauss .5 1.7 .2 {.2 .5 .8}
} 1 {Expected a number in the range 0..1, got: 1.7}

test {shader-3.4} {
    catch {unset shader1}
    set shader1 [SippShaderStrauss .5 .8 .2 {.2 .5 .8}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-3.5} {
    catch {unset shader1}
    set shader1 [SippShaderStrauss .5 .8 .2 {.2 .5 .8} {.1 .9 0}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-3.6} {
    catch {unset shader1}
    set shader1 [SippShaderStrauss .5 .8 .2 {.2 .5 .8} .1]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderWood command.
#
test {shader-4.1} {
    SippShaderWood {1.2 .5 .8}
} 1 {wrong # args: SippShaderWood ambient specular c3 scale basecolor ringcolor [opacity]}

test {shader-4.2} {
    SippShaderWood .5 .8 .2 3 {1.2 .5 .8} {.2 .9 .8}
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-4.3} {
    SippShaderWood .5 .8 1.2 3 {.2 .5 .8} {.2 .9 .8}
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-4.4} {
    catch {unset shader1}
    set shader1 [SippShaderWood .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-4.5} {
    catch {unset shader1}
    set shader1 [SippShaderWood .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8} {.1 .9 0}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-4.6} {
    catch {unset shader1}
    set shader1 [SippShaderWood .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8} .1]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderMarble command.
#

test {shader-5.1} {
    SippShaderMarble {1.2 .5 .8}
} 1 {wrong # args: SippShaderMarble ambient specular c3 scale basecolor stripcolor [opacity]}

test {shader-5.2} {
    SippShaderMarble .5 .8 .2 3 {1.2 .5 .8} {.2 .9 .8}
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-5.3} {
    SippShaderMarble .5 1.8 .2 3 {.2 .5 .8} {.2 .9 .8}
} 1 {Expected a number in the range 0..1, got: 1.8}

test {shader-5.4} {
    catch {unset shader1}
    set shader1 [SippShaderMarble .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-5.5} {
    catch {unset shader1}
    set shader1 [SippShaderMarble .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8} {.1 .9 0}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-5.6} {
    catch {unset shader1}
    set shader1 [SippShaderMarble .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8} .1]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderGranite command.
#
test {shader-6.1} {
    SippShaderGranite {1.2 .5 .8}
} 1 {wrong # args: SippShaderGranite ambient specular c3 scale color1 color2 [opacity]}

test {shader-6.2} {
    SippShaderGranite .5 .8 .2 3 {1.2 .5 .8} {.2 .9 .8}
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-6.3} {
    SippShaderGranite .5 1.8 .2 3 {.2 .5 .8} {.2 .9 .8}
} 1 {Expected a number in the range 0..1, got: 1.8}

test {shader-6.4} {
    catch {unset shader1}
    set shader1 [SippShaderGranite .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-6.5} {
    catch {unset shader1}
    set shader1 [SippShaderGranite .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8} {.1 .9 0}]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-6.6} {
    catch {unset shader1}
    set shader1 [SippShaderGranite .5 .8 .2 3 {.2 .5 .8} {.2 .9 .8} .1]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderBozo command.
#
test {shader-7.1} {
    SippShaderBozo {{1.2 .5 .8} {2.2 .5 .8}}
} 1 {wrong # args: SippShaderBozo colorlist ambient specular c3 scale [opacity]}

test {shader-7.2} {
    SippShaderBozo {{1.2 .5 .8} {2.2 .5 .8} {3.2 .5 .8}} .5 .8 .2 2
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-7.3} {
    SippShaderBozo {{.2 .5 .8} {.2 .5 .8} {.2 .5 .8}} .5 1.8 .2 2
} 1 {Expected a number in the range 0..1, got: 1.8}

test {shader-7.4} {
    catch {unset shader1}
    set shader1 [SippShaderBozo {{.2 .5 .8} {.2 .5 .8} {.2 .5 .8}} .5 .8 .2 2]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderBumpy command.
#
test {shader-8.1} {
    SippShaderBumpy foo
} 1 {wrong # args: SippShaderBumpy shaderhandle scale [BUMPS] [HOLES]}

test {shader-8.2} {
    SippShaderBumpy foo 1 BUMPS HOLES
} 1 {invalid shader handle: foo}

test {shader-8.3} {
    catch {unset shader1}
    set shader1 [SippShaderBasic .5 .8 .2 {.2 .5 .8}]
    SippShaderBumpy $shader1 1 FOO HOLES
} 1 {expected one of `BUMPS' or `HOLES', got `FOO'}

test {shader-8.4} {
    SippShaderBumpy $shader1 1 HOLESXXX
} 1 {expected one of `BUMPS' or `HOLES', got `HOLESXXX'}

test {shader-8.5} {
    SippShaderBumpy $shader1 a
} 1 {expected floating-point number but got "a"}

test {shader-8.6} {
    set shader2 [SippShaderBasic .5 .8 .2 {.2 .5 .8}]
    catch {unset shader1}
    set shader1 [SippShaderBumpy $shader2 1 BUMPS HOLES]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-8.7} {
    catch {unset shader1}
    set shader1 [SippShaderBumpy $shader2 1 HOLES BUMPS]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-8.8} {
    catch {unset shader1}
    set shader1 [SippShaderBumpy $shader2 1 HOLES]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

test {shader-8.9} {
    catch {unset shader1}
    set shader1 [SippShaderBumpy $shader2 1]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderPlanet command.
#
test {shader-10.1} {
    SippShaderPlanet .2
} 1 {wrong # args: SippShaderPlanet ambient specular c3 [opacity]}

test {shader-10.2} {
    SippShaderPlanet .2 .1 .3 {1 1 1} foo
} 1 {wrong # args: SippShaderPlanet ambient specular c3 [opacity]}

test {shader-10.3} {
    SippShaderPlanet .2 .1 .3 {1 x 1}
} 1 {expected floating-point number but got "x"}

test {shader-10.4} {
    SippShaderPlanet 1.2 .1 .3
} 1 {Expected a number in the range 0..1, got: 1.2}

test {shader-10.5} {
    catch {unset shader1}
    set shader1 [SippShaderPlanet .2 .1 .3]
    SippShaderDelete $shader1
    crange $shader1 0 5
} 0 {shader}

#
# Test SippShaderDelete command.
#
test {shader-11.1} {
    SippShaderDelete
} 1 {wrong # args: SippShaderDelete shaderlist}

test {shader-11.2} {
    SippShaderDelete foo
} 1 {invalid shader handle: foo}

test {shader-11.3} {
    set shader1 [SippShaderBasic .5 .8 .2 {.2 .5 .8}]
    set shader3 [SippShaderBasic .5 .1 .2 {.2 .5 .8}]
    SippShaderDelete [list $shader1 $shader2 $shader3]
} 0 {}